100 POKE53280,12:POKE53265,12:POKE53281,12:PRINT"[147][144][164][164][164][164][164][164][164][164][164][164][164][164][164]"
110 PRINT"[193]NTI [210]ESET 64[144]"
120 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
130 PRINT"[215]RITTEN BY [207]. [205]USOLF"
140 PRINT"                 "
150 PRINT"[158]--------------------"
160 PRINT"[144][215]AS SOLL NACH DEM [210]ESET GESCHEHEN:"
170 PRINT"1 [206]ICHTS"
180 PRINT"2 [212]OTALER [193]BSTURZ"
190 PRINT"3 [211]PRUNG ZU EINER [193]DRESSE":POKE53265,27
200 PRINT"[145][145][164][157]?":FORX=1TO80:NEXT
210 GETA$:IFVAL(A$)>0ANDVAL(A$)<4THEN230
220 PRINT"[145][145] [157]?":FORX=1TO80:NEXT:GOTO200
230 IFA$="1"THEN370
240 IFA$="2"THEN420
250 INPUT"[215]ELCHE [193]DRESSE (0-65536)";A$
260 A=VAL(A$):IFA>65536ORA<0THEN100
270 IFA=0ANDA$<>"0"THEN100
280 IFA<>INT(A)THEN100
290 HB=INT(A/256):LB=A-HB*256
300 H$=RIGHT$(STR$(HB),LEN(STR$(HB))-1)
310 L$=RIGHT$(STR$(LB),LEN(STR$(LB))-1)
320 PRINTCHR$(9)"[147][196]AMIT NACH EINEM [210]ESET NACH"A"GE-"
330 PRINT"SPRUNGEN WIRD IST ES NOETIG FOLGENDE"
340 PRINT"[218]EILEN ZU ERGAENZEN:":GOSUB470
350 PRINT"YYY [208][207][203][197]32768,"H$":[208][207][203][197]32769,"L$
360 POKE198,0:WAIT198,1:GOTO100
370 PRINTCHR$(9)"[147][196]AMIT NACH 'NEM [210]ESET NICHTS GESCHIEHT"
380 PRINT"MUESSEN SIE IHR [208][210][199] UM FOLGENDE [218]EILEN"
390 PRINT"ERGAENZEN:":GOSUB470
400 PRINT"YYY [208][207][203][197]32768,164:[208][207][203][197]32769,7
410 [151]198,0:[146]198,1:[137]100
420 [153][199](9)"LOADSTR$AMIT NACH EINEM (null)ESET EIN TOTALER ATNB-"
430 [153]"STURZ AUSGELOEST WIRD IST ES NOTWENDIG"
440 [153]"FOLGENDE (null)EILEN INS (null)ROGRAMM ZU NEHMEN:":[141]470
450 [153]"YYY (null)(null)(null)VAL32768,0:(null)(null)(null)VAL32769,5"
460 [151]198,0:[146]198,1:[137]100
470 [153]"XXX (null)(null)(null)VAL32772,195:(null)(null)(null)VAL32773,194:(null)(null)(null)VAL32      774,205:(null)(null)(null)VAL32775,56:";
480 [153]"(null)(null)(null)VAL32776,48":[142]